.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Cmndl { continuation of the command processor module } 
> 

> PROCEDURE D JJead 

> PROCEDURE D_ReadHdr 

> PROCEDURE DJ4r I te 

> PROCEDURE ReadJCStatus 

> PROCEDURE ReodJSStatus 

> PROCEDURE SendJServoCmnd 

> PROCEDURE SendJSeek 

> PROCEDURE Send_Restore 

> PROCEDURE Send J^ark 

> PROCEDURE Set_Ram_flddr 

> PROCEDURE WrJSprTbl 

> PROCEDURE Format 

> PROCEDURE Read_Rbort 

> PROCEDURE D_RstSrvo 

> PROCEDURE D^lnitSprTbl 
y 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO External 

.LSTOM 

. Page 

> 

> Procedure: D_Read 
> 

> This procedure is used by the Host to invoke the primitive 

> read function. The block that is read by this routine is the 

> last seek address < cylinder^ head., and sector ). It Is 

> best to turn recovery OFF before using this command - as i t 
:» is when using ALL diagnostic commands. 

> 

> Inputs: { none ) 

> Outputs: { none ) 

> filgorlthm: 
> 

> BEGIN 

> ClrNormStat 

> ftck_Read( D_Read_Response > 

> IF NOT< ReadJCommon > 

> THEN DataJEx_Handler< ReadJCommon.ErrorCode > 

> Rd_Leave 

> END 

5. 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 

.Flii 

D_Read: 

Call ClrNormStat 



Ld 
Coli 


I4rk_ 1 o+$fl , «D_Read_Response 
flck_Read 


Ld 
find 
Call 
Jr 


Dala—TypSj, *User_Type 
DiskStat,«$FF-WrJOp 
ReadJCommon 
Hz^D-Read Fnd 


Ld 
Call 


!rO,*Error 
Data_Ex_Harid 1 er 


_Read_End : Jp 


Rd-Lea^/e 


.LSTOFF 

.DO External 
.LSTOM 
.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


> Procedure: D_fJeadHdr 



> This diagnostic command is used to read the header < and whatever 

> the contents may be > of the block pointed to by the last seek 

> address. The host should be cautioned that the buffer that the 

> controller points it to at the completion of the read is longer 

> than a normal read buffer by the length of the header and the 

> data gap. 
> 

> Inputs: { none } 
J. 

> Outputs: { none } 
> 

> Algorithm: 
> 

> BEGIH 

> CIrNormStat 

> ftek_Bead< 0_RdHdr_Response > 

> Sector := Ld-Paraml. First 

> LocateSector 

> ReadHdr 

> IF ReadHdr . ServoErr THEN SetStatus< ByteO, SeryoEror > 

> IF ReadHdr. CrcErr THEN SetStatus< ByteO, ReadError > 

> noMe4C RdHdrStatusflrray, CStatusO ) 

> Clr_Bsy< RdHdrStatusflrray > 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTOH 

. Page 

.FIN 



D_ReadHdr: 



Call CIrNormStat 

Ld Wrk_lo+$fl,«D_RdHdr_Response 

Cal I flck_Read 

Cal I Ld_Pararot 

Ld Sector, !rO j load new sectcr- 



Ld !r2,«.HIBVTE. LocateSector 

Ld !r3,«.L0MBVTE. LocateSector 

Ca i t Bonk JDa I I 

Ld Da taJType , «User_Type 

find D iskStat, «$FF-WrJ)p 

Ld !r2,«.HIBVTE. ReadHdr 

Ld ?r3,«.L0HBVTE. ReadHdr 

Cal I BankJCal I 

Push !rO jsave status byte 





Tm 
Jr 


lrO,«RdHSrvoErr ; IF ReadHdr. Si 
Z,D_RdHjCrc 




Clr 
Ld 
Call 


!rO jbyteO 

lrt,«Stat-JSrvo 

SetStatus 


re: 


Pop 

Tm 

Jr- 


IrO 

!rO,«RdCrcErr 

2,D_RdH_End 




Clr 
Ld 
Call 


IrO ;byte 

lr1,«Stat_Rd_Err 

SetStatus 


rid: 


Ld 
Ld 
Ld 
Ld 
Call 


lr2,«.HIBVTE. CStotusO 
!r3,«.L0MBVTE. CStatusO 
!rE,«.HIBYTE. RdH_JStat_flrray 
!rF,«.L0UBVTE. RdH_Stat_flrray 
rioMe4_B0 




Srp 
Ld 
Clr 
Ld 
Ld 

Jp 


«Wrk_lo 
I rfi^ * 1 n i t_Response 
!rB 

1 rC , « . H 1 BVTE . RdH JSta t_flrray 
!rD,».L0MBVTE. RdH_Stat_firray 
CIr-Bsy 




.LSTOFF 

.DO 

.LSTOH 


External 



>> 



Procedure: DJ4rite 

This procedure, like DJRead, allows the host to perform 
a single write to the last seek address. KEEP IN MIND THfiT 
THIS ROUT I ME WILL ALLOW VOU TO WRITE RMYWHERE ON THE DISK THRT 
VOU CARE TO WRITE! Ill 

Inputs: { none > 

Outputs: { none ) 

fi I gor i thffl : 

BEGIN 
ClrNorroStat 
Get_Wr_OataC DJWri te_Response > 



;> IF ttOT< WrItejCofflfflon > 

;> THEN Data_Ex_Handler< Wr JCommon . Errot^Code ) 

; > Rd JLeave 

; > EfID 


.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
FIN 


D_Write: 


Call 


ClrNormSlat 




Ld 
Or 


Da ta_Type , «User_Type 
Disks tat, «l4rJQp 




Ld 
Call 


Wrk_l o+$fl, «D_Wr 1 te J=!esponse 
GetJ4r_Data 




Call 
Jr 


WrJCommon 
Nz,D_WritP Fnd 




Ld 
Call 


!rO,*Error 
Data_£x_iHand 1 er 


D-ilriteJEnd 


Jp 


Rd 1 save 




.LSTOFF 
.DO 
. LSTON 


External 



.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: ReadJCStatus 
> 

> This procedure allows the host to read any of the controllers 

> status'. These status' all come in 4 byte quantities: 
> 

> StatusO: StandardJStatus { sent to the host at the completion 

> of a command - note that a request 

> for status is liOT a coniisand } 

> Status 1: Last-Logical -Block { 0, Hi Byte, NidByte, LoByte } 

> Status2: LastJSeek-fiddress {HiCylinder, LoCyl inder. Head, Sector > 

> StatusS: Current jCy I i nder { Hi Cylinder, LoCylinder, 0, } 
Status4: lnternal_JStat { ExcptJStat, DiskStat, BIkStat, > 

> Status5: Cntrl-Port { 0, SlfTst_Resul t, 0, Controller-Port } 

> Status5: Error jStatus { RdStat, RdErrCnt, WrStat, WrErrCnt > 

> Status?: Last_JSeek_fiddress { Lst_HiCyl, Lst_LoCyl, Lst-Head, 

> LstJSector } 

> {all illegal status requests wi 1 1 r^\\Jirr\ standard status } 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 



Read-XStatus : 








Ld 


Wrk-I o+$fl, «Rd_jStat_P.esponse 




Caii 


fick-Read 




Ld 


lrE,«.HIBVTE. Statusflrray 




Ld 


!rF,«.LOMBYTE. Statusflrray 




Call 


Ld_Pararo 1 




find 


lrO,«$OF ;mask off all but 




Cp 


!r0^*7 ; check fcM^ except ca; 




Jp 


Gt^Rd 1 save 




Ld 


!r2,«.HfBVTE. Stat_Table 




Ld 


lr3,«.L0WBVIt. Stat_Table 




Rl 


IrO 




ftdd 


!r3JrO 




ftdc 


Ir2,«0 




Ldc 


!rC,e!!r2 




Incw 


!!r2 




Ldc 


!rD,e!!r2 




■Jp 


§lrC 


Stat_Table: 


.DW 


Rd-LeaMe 




.DW 


Ld_JStat1 




.DW 


Ld_JStG!t2 




.DW 


Ld_Stat3 




.DM 


Ld-JStat4 




.DU 


Ld^tatS 




.DW 


Ld_Stat6 




.DM 


Ld_jStat? 


Ld_JStat1: 


Incai 


!!rE 




Ld 


lr2,«.HIBVTE. Log i ca 1 B 1 ock 




Ld 


lr3.«.L0WBVTE. LogicalBlock 




Cat! 


nove4_B0 




^^ 


Ld_JStat Fnd 


Ld_Stat2: 


Ld 


!rO,«Cyl} rider 


Ld-JStat2_1 : 


Ld 


!r1,*4 jinove 4 bytes 


Ld^tat2_Lp: 


Ldel 


©MrE.glrO 




Djnz 


!r1,LdJStat? Ip 




Jr 


Ld_Staf Fnd 


LdJStatS: 


Ld 


!rO.«Cur_jCy! 




.> 


Ld_Stat2_1 


LdJStat4: 


Ld 


IrO^Excpt Status 




Ld 


!r1,DiskStatus 




Ld 


!r2,BlkStat 




Ld 


!r3, Data-Type 




Jr 


LdJStat_Reg 


Ld^tatS: 


Ld 


!rO,«0 




Ld 


lr1,SJfTst_Result 




Ld 


Sr2,Port2 




Ld 


!rC,«.HIBVTE. Status_Port 




Ld 


lrD,«.LOMBVTE. Status-Port 




Lde 


!r3,§nrC 




Jr 


LdJStat_Reg 


Ld State: 


Ld 


IrO.RdStat 




Ld 


!r1,RdErrCnt 



Ld_Stat7: 

LdJStat-Reg: 
StatSJLp: 

LdJStat_End: 



Ld 
Ld 
Jr 

Ld 
Ld 
Ld 
Ld 

Ld 
Ld 
Ldei 
Djnz 

Ld 
Clr 
Jp 



!r2,MrStat 

!r3,UrErrCnt 

Ld^tatJReg 

!rO,Lst_HiCyl 
!r1,Lst-i.oCy! 
!r2,Lst_Head 
!r3,Lst^ector 



!r4,Rp 

!r5,*4 ;move 
§!!rE,§!r4 
!r5,Stat5_Lp 



4 bytes 



Wrk_l o+$R, # I n i t JResponse 

Urk_lo+$B 

Rd_Leave 1 



.LSTOFF 

.DO External 

.LSTON 

.Page 



Procedure : Read_SS ta tus 

This procedure is used by the host to examine the servo processor'* 
status Infornnatlon. The controller makes NO assumptions concerning 
knowledge or meaning of the status bits, nor does the controller 
interpret the status request sent by the host. In other words, 
when the host issues a request for status to the servo, it \s 
his responsibility to make certain that the request is meaningful. 

The returned status is preceded by Standard Status. 



>>>>>>>>>>>. ^ >>>>>>>>>>>>> >>>>>>>>> 
.LSTOFF 
.FIH 

.00 Interna! 
.LSTON 
.Page 
.FIN 



ReadJSStatus: 



Call CIrNormStat 

Ld Wrk_lo+$fl,«RdjSStat_Response 

Cal I flck_Read 

Ca 1 1 Ld_Param 1 

Call Set_J3fflt 

Ld ScrRegS, frO 

Ld ScrPiegO,«ReadStatus 

Ld ScrReg1,«0 

Ld ScrReg2,«0 

Ld !r2,*.HIBVTE. ServoStatus 

Ld ?r3,«.L0MBYTE. ServoStatus 

Cal I BankJCal I 

Call CIrJDffit 



Call 



LdJStandJStat 



Ld !r2,*.HIBVTE. SStatusO 
Ld !r3,«.L0WBVTE. SStatusO 
Ceil I MoMe4_B0 



Jr 



Ld_JStatJEnd 



Ld_Pararo 1 : Ld ScrReg4 , Rp 

Push Rp 

Sr-p «Wrk_Scr 

Ld !rE,«.H!BVTE. ( CStatus4 + 2 ) 

Ld !rF.«.LOUBVTE. < CStatus4 + 2 ) 

Ld !r5,«4 ; load 4 bytes 

Rd_-SStat_Lp: Ldei §!r4,§F!rE 

D j nz ! r5 , Rd JSS ta tJ-p 

Pop Rp ;get back to original context 
Ret 



.LSTOFF 

.DO External 

.LSTON 

-Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 
> Procedure: Send_SeryoCmnd 



This procedure is used by the host to send the servo a command 
of any type EXCEPT a status request (. use ReadJSStatus for that >. 
The controller will fibort the operation if this servo command 
is sent to it. 

fllso^ as in ReadJSStatus, the host is responsible for the the 
command string that it send to the servo -all the Uidget 
controller will do is pass along the command string. 



>:>>.^ >>>>>>>>>>>>>>>> >>>>>>>>>>>>> 
.LSTOFF 
.FIN 

-DO Internal 
.LSTON 
-Page 
.FIN 



.Send_ServoCmnd : 



Cal I CIrNormStat 

Ld Wrk_lo+$fi,«Sd_S_C_Response 

Cal I flck_Bead 

Cal I Ld_Param1 ;get ser^,«o command 

Or !rO^!rO ; check for Status Command 

Jr NZ/SjScmnd 

Cal I Abort 



SJScmnd: 


Call 


Set_Dmt 




Ld 


ScrRegO, ?rO 




Ld 


ScrRegl, Irl 




Ld 


ScrReg2, Ir2 




Ld 


ScrReg3.!r3 




Ld 


!r2,*.HIBVTI 



Ld !r3,«.L0WBVTE. SeryoCmnd 
Call BankJCall 
Call CIrJDmt 

Jp Rd_Leaue 

.LSTOFF 

.DO External 

. LSTOli 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : Send JSeek 
> 

> This procedure allows the host to position the heads flNVWHERE 

> on the disk service that it pleases - the only consideration 

> is to be amare of the crash stop positions! 
> 

> The form of the parameters passed into the control ler ar& 

> Hi Cylinder. LowCy Under, Head^ Sector. Keep (n mind that these 

> va \ ues IB I i i be used to check for a ua i i d header i f and mhen 

> a state machine operation ios initiated. 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIH 

.DO Internal 

.LSTON 

. Paqe 

.FIN 

SendwSeek : 

Call CIrNormStat 

Ld l'lrk_lo+$fl,«SJSeek_Response 

Call flckJtead 

Cal I Ld_Parara1 ;get parameters from command processor 

Ld Seek_Type,«flccess 

Ld IrCJrO ;pass params to Seek 

Ld !rD, rrl 

Ld !rE,!r2 

Ld Ir-F, !r3 

Cal I New_JSeek 

Ld !r2,«.HIBVTE. Set_SeekNeeded 

Ld lr3,».L0WBVTE. SetjSeekNeeded 

Can Bank-Call 

Jp Rd-Leave 

.LSTOFF 

.DO External 

.LSTON 

.Page 

; > Procedure : Send_fiestore 

;> 

;> This command allows the host to issue either a Format Recal or 
;> a Data Recal to the servo wjithout having to build a primitive 
;> servo command. The value of which type of restore is to be 



;? performed Is passed in with the command string. 
- > 


f ' 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


.LSTOH- 




.FIN 




.DO 


Internal 


.LSTON 




.Page 




.FIN 




Send_Restore: 




Call 


ClrNormStat 


Ld 


Mrk-l o+$fl, *S_Rstr_Besponse 


Call 


flck_Bead 


Call 


Ld-Param1 ;get reca! type 


CP 


!rO,«DataRecal 


Jr 


Z,S_Restore 


Cp 


!rO,«FrmtRecal 


Jr 


Z. S_P.es tore 



Call Abort 

S_Restore: Ld !r2,«.H}BS'TE. Restore 
Ld !r3,«.L0MBVTE. Restore 
Call BonkjCall 

Jp Rd-Leaue 

.LSTOFF 

.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Set-Recovery 
> 

> This procedure is used by the host to set the global 

> variable Recovery either on or off. This variable controls 

> the behavior of Midget when an exception occurs; in the 

> case of Recovery = True, the controller tries everything it 

> can to correct the exception and continue about it's day. 

> When Recovery = False, however, the controller will do nothing 

> about the problem and report the error to the host. 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 



Set-Recovery: 



Call ClrNormStat 

Ld Urk_ \ o+$fl , *Se t_Rc vr -Response 

Co 1 1 fick-Read 

Cal I Ld-Param1 ;get Set /Reset param 

Or Excpt_Status,*Recovery ; assume True 



Or !rOj,!rO ; test for true or false 
Jr liz , Se tJIcvr^ tore 

find Excpt_Status,»$FF-PiecoMery ; clear old bit 

Set_RcvrjStore: Jp Rd_±,eave 

LSTOFF 

.DO Externa! 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>. ^ >>>>>>>>>>> 
> 

> Procedure: 3end_Park 
> 

> This diagnostic command allows the host to issue a Park 

> command to the drive. This command has the effect of 

> sending the drive heads off the data surface. 
> 

> Inputs: { none > 

> Outputs: { none ) 
> 

> Algorithm: 
> 

> BEGIN 

> ClrHormStat 

> flck_BeadC S_Park_Besponse > 

> Park_Heads 

> Rd_Leave 

>>:>>>>>>>>>>>>>>>>. V >>>.>;> >.>>>>>>:>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 
-Paqe 
.FIN 

>end_Fark: 

Call ClrNormStat 

Ld Urk_lo+$fi,«S_Park_Response 
Call flck_Read 

Ld !r2,«.HIBVTE. Park_Heads 
Ld !r3,«.L0MBVTE. Park_Heads 
Ca 1 1 BankJCa 1 1 

Jp Rd_Leaye 

.LSTOFF 

•DO External 

-LSTON 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > > > 
> 

> Procedure: StoreJIap 
> 

> This command allows the Host to logically remap { I.e.j, change 

> the interleave factor through a remapping of the sector addresses. ) 

> The way in which the ftap is downloacted into the SpareTable is 

> by doing a write sequence from the Host to the controller-. 



> Inputs: { none } 
> 

> Outputs: { none } 
> 

> Algorithm: 
> 

> BEGIN 

> GetJ4riteJ3atci< StJIap-iiesponse > 

> FOR i := TO NbrSctrs-1 DO 

> IF < WriteBufferL i 3 >= HbrSctrs > THEN Abort 

> riap_Tablel ! 3 := MriteBuffert I 3 

> UpDa te JSpar e_Tab I e 

> END 
> 

^ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
LSTOFF 
.FIN 

.DO Internal 
.LSTOM 
.Page 
.FIN 

Stors-Jlap: 

Call ClrNorroStat 

Ld I4rk_l o+$A, «St_J1ap_Flesponse 
Cal I Get_Ur_Data 

Ld lr2,«.HIBVTE. WBufferl 

Ld lr3,«.L0MBVTE. WBufferl 

Ld irE,«.HIBVTE. Nap-Table 

Ld !rF,*.LOWBVTE. l1ap_Table 

Ld !r1,«NbrSctrs 

St_J1ap_Lp: Lde !rO,§! !r2 ;get a value from Urite Buffer 
Cp !rO.«NI^Sctrs 
Jr Lt.StJIapl 

Ld IrAJrO 
Cal I Abort 

StJIapl: Lde §! IrE, !rO ; store value into Map_Table 

Incffl ! !r2 

Incm ! !rE 

j nz I r 1 , S t_Nap_Lp 

Ld !r2,«.HIBVTE. UpDate_JSprTfal 
Ld !r3,*.L0WBS^TE. UpDate-SprTbl 
Call BankJCall 

Jp Rd-LeoMe 

.LSTOFF 

.DO External 

.LSTON 

.Page 
>>>>>>>>> .^ .^ >:>>>>.>> .1^ >>>>>>>>>>>>> > 
> 

> Procedure: MrJSprTbl 

> . , 

> This command allows the host to update the spare table 

> without the controller's intervention. BE CAREFUL MITH 



•> THIS OME! 

> 

> Inputs: { none ) 

> Outputs: { none } 
> 

> fl ! gor i thm : 
> 

y BEGIN 

> IF NOT< Chk_Passl4ord< CoininandString+1 ) ) THEN Abort 

> flck_Read< WrJSpr_Response ) 

> Clr_BsyC Spareflrray ) 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

.DO Internal 
LSTON 
.Page 
.FIN 

Ur_SprTbl: 

Ld Wrk_lo+$fi,«WrJSpr_fiesponse 
Cal I Get_WrJData 

Call CIrNormStat 

Ld ScrReg2,».HIBYTE. C CStatus4 + 2 ? 

Ld ScrReq3,«.L0MBYTE. ( CStatu£4 + 2 ) 

Ld lr2,«.HIBVTE. ChkJ'assMord 

Ld !r3,».L0WBVTE. Chk_PassMord 

Call BankJCall 

Jr Nz.WrjSprl 

Cal I Abort 

Ur-Spri: Ld lr2,*.HIBVTE. yrBuf_To_Spr 

Ld !r3,«.L0WBVTE. WrBuf_ToJBpr 

Call BankJCall 

Ld !r2,«.HIBVTE. UpOateJSprTbl 

Ld !r3,«.L0WBVTE. UpDate.^rTbl 

Call BankJCall 

Jp Rd_LeaMe 

.LSTOFF 

.DO External 

.LSTOH 

.Page 

> 

> Procedure: Format 

> This procedure allows the host to format the track 

> that the heads are currently positloried over. 
> 

> BE ULTRA CAREFUL HERE! » ! I THIS COflNAND DESTROS^S ALL 

> DATA ON THE TRACK. . . . DATA RECOUERV WILL BE IMPOSSIBLE 

> AFTER A TRACK HAS BEEN FORMATTED. 
:> 

> The tujo parameters that m^Si passed into the controller 

> by the host al loa) the host to specify the offset from 

> Index mark < in sectors ) that Sector anil be located 



and the interleave factor. 
Inputs: { none } 
Outputs: { none } 
fllgorithm: 

BEGIN 

CIrNorniStat 

IF NOT< Chk_PassUord< CStatus4+3 > > THEN fifaort 

flck_Read< Frat_Response ) 

!F NOT< FormatTrackC CStatu£4+1, CStatus4+2 ) ) 
THEN Abort 

Rd_LeaMe 
END 



.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



For^mat : 

Ld 
Call 

Call 

Ld 

Chk_Piii tParffis : Ca 11 

Ld 
Ld 
Call 
Jr 

Call 

Fo 2.Fmt_jChk_lnter 



Format-flbort: 



Ld 

Ld 

Call 



Wrk_l o+$fi . *Ffflt_Response 
flck_Read 

Chk-FmtParms 

Ir4, IrO 

CIrNormStat 

ScrReg2,«.HIBVTE. < CStatus4+4 > 
ScrReg3,«.L0UBVLd I r3, » . L0I4BVTE . Chk-PassUord 

BankJCal I 
Nz, Format 1 

Rbor-t 



!r9, IrO 
fibort 



Fm t jChk_ I *Max_ I n terLeave 

Jr Ug t J. Forma t-flbor t 

Ret 

.LSTOFF 

.DO External 
tents of 
;> the controller's register set at the time of the last abort. 
;> If there has been no abort, the results of this command 
;> m\\ be>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTCFF 

.FIN 

.DO Internal 

.LSTON 

.Pageead_fJbort: 



Call ClrMormStat 

Ld Nrk_ I o+$fi^ «Rd_flbr t_Response 

Ca 1 1 Rck_Read 

Ld !rO,«.HIBVTE. fibort_Stal 

Ld !r1,«.L0WBVTE. Aborts tat 

Ld !r2,«.HIBVTE. RBufferl 
Ld bytes 



Rd_ftbt_Lp; 



Lde 


!r5,§!!r0 


Lde 


§!!r2, !r5 


Incw 


!!rO 


incui 


!!r2 


.DO 


External 


.LSTON 




.Page 

^'!^^^■!i.^^^■i' 


>'iS'l.'!.\%%S\% 



> 

> Procedure: D_RstSrMO 
> 

> Thi Inputs: { none } 
> 

> Outputs: { none > 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 
.DO 
.FIH 



DJistSryo: 



Call CIrNormStat 

Ld Wrk_lo+$fl,«RstSryo_Response 

Ld !r2,«.HIBVTE. ResetServo 
Ld !r3,«.L0WBYTE. ResetServo 
Call BankJCall 



> 

> Procedure: D_lnl tJSprTbl 
> 

> This procedure allows the host to initialize the spare table 

> on the disk. 
> 

> Inputs: { none ) 
> 

> <X<tputs: { none ) 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 
eg2,«.HIBVTE. < CStatus4+4 > 

Ld ScrReg3,#.L0WBVTE. < CStatus4+4 > 
Ld {r2,#.HIBVTE. Chk_Passl4ord 
Ld Cal I Abort 



D_ I -SprTb I ; Ca 1 1 Ld_Par am 1 



Ld Ir4^ !r0 ;pass offset value 
Call BankJCall 



Jp Rd_Leaye 

.LSTOFF 



